BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Game / R / Rhine.sit / Rhine / Rhiner < prev
MacBinary | 1993-06-27 | 10.1 KB | [TEXT/McSk]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Jun 27 21:25:11 1993, modified Sun Jun 27 21:25:11 1993, creator 'McSk', type ASCII, 9525 bytes "Rhiner" , at 0x25b5 574 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[McSk]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 52 68 69 6e 65 72 | 00 00 00 00 00 00 00 00 |..Rhiner|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 63 53 | 6b 00 00 00 00 00 00 00 |.TEXTMcS|k.......|
|00000050| 00 00 00 00 00 25 35 00 | 00 02 3e a8 53 f8 f7 a8 |.....%5.|..>.S...|
|00000060| 53 f8 f7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |S.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e7 ce 00 00 |........|........|
|00000080| 28 20 72 68 69 6e 65 2e | 74 78 74 20 20 31 35 20 |( rhine.|txt  15 |
|00000090| 4e 6f 76 2e 20 31 39 38 | 38 20 20 31 30 3a 31 34 |Nov. 198|8  10:14|
|000000a0| 20 50 4d 20 29 0d 28 20 | 61 64 64 20 63 6f 6c 6f | PM ).( |add colo|
|000000b0| 72 2c 20 65 74 63 20 20 | 32 31 20 4a 75 6c 79 20 |r, etc  |21 July |
|000000c0| 31 39 39 31 20 20 39 3a | 30 31 20 50 4d 20 29 0d |1991  9:|01 PM ).|
|000000d0| 66 6f 72 67 65 74 20 74 | 61 73 6b 20 3a 20 74 61 |forget t|ask : ta|
|000000e0| 73 6b 20 3b 20 20 30 20 | 32 38 20 2b 6d 64 20 21 |sk ;  0 |28 +md !|
|000000f0| 20 20 28 20 6e 6f 20 65 | 63 68 6f 20 29 0d 0d 28 |  ( no e|cho )..(|
|00000100| 20 6f 6c 64 20 73 74 79 | 6c 65 20 63 6f 6c 6f 72 | old sty|le color|
|00000110| 73 20 29 0d 3a 20 42 4c | 41 43 4b 20 20 20 20 33 |s ).: BL|ACK    3|
|00000120| 33 20 30 20 32 3e 72 20 | 2c 24 20 41 38 36 32 20 |3 0 2>r |,$ A862 |
|00000130| 3b 20 20 28 20 62 6c 61 | 63 6b 20 5f 46 6f 72 65 |;  ( bla|ck _Fore|
|00000140| 43 6f 6c 6f 72 20 29 0d | 3a 20 57 48 49 54 45 20 |Color ).|: WHITE |
|00000150| 20 20 20 33 30 20 30 20 | 32 3e 72 20 2c 24 20 41 |   30 0 |2>r ,$ A|
|00000160| 38 36 32 20 3b 20 20 28 | 20 77 68 69 74 65 20 5f |862 ;  (| white _|
|00000170| 46 6f 72 65 43 6f 6c 6f | 72 20 29 0d 3a 20 52 45 |ForeColo|r ).: RE|
|00000180| 44 20 20 20 20 20 32 30 | 35 20 30 20 32 3e 72 20 |D     20|5 0 2>r |
|00000190| 2c 24 20 41 38 36 32 20 | 3b 20 20 28 20 72 65 64 |,$ A862 |;  ( red|
|000001a0| 20 5f 46 6f 72 65 43 6f | 6c 6f 72 20 29 0d 3a 20 | _ForeCo|lor ).: |
|000001b0| 47 52 45 45 4e 20 20 20 | 33 34 31 20 30 20 32 3e |GREEN   |341 0 2>|
|000001c0| 72 20 2c 24 20 41 38 36 | 32 20 3b 20 20 28 20 67 |r ,$ A86|2 ;  ( g|
|000001d0| 72 65 65 6e 20 5f 46 6f | 72 65 43 6f 6c 6f 72 20 |reen _Fo|reColor |
|000001e0| 29 0d 3a 20 42 4c 55 45 | 20 20 20 20 34 30 39 20 |).: BLUE|    409 |
|000001f0| 30 20 32 3e 72 20 2c 24 | 20 41 38 36 32 20 3b 20 |0 2>r ,$| A862 ; |
|00000200| 20 28 20 62 6c 75 65 20 | 5f 46 6f 72 65 43 6f 6c | ( blue |_ForeCol|
|00000210| 6f 72 20 29 0d 3a 20 43 | 59 41 4e 20 20 20 20 32 |or ).: C|YAN    2|
|00000220| 37 33 20 30 20 32 3e 72 | 20 2c 24 20 41 38 36 32 |73 0 2>r| ,$ A862|
|00000230| 20 3b 20 20 28 20 62 6c | 75 65 2d 67 72 65 65 6e | ;  ( bl|ue-green|
|00000240| 20 5f 46 6f 72 65 43 6f | 6c 6f 72 20 29 0d 3a 20 | _ForeCo|lor ).: |
|00000250| 4d 41 47 45 4e 54 41 20 | 31 33 37 20 30 20 32 3e |MAGENTA |137 0 2>|
|00000260| 72 20 2c 24 20 41 38 36 | 32 20 3b 20 20 28 20 70 |r ,$ A86|2 ;  ( p|
|00000270| 75 72 70 6c 65 20 5f 46 | 6f 72 65 43 6f 6c 6f 72 |urple _F|oreColor|
|00000280| 20 29 0d 3a 20 59 45 4c | 4c 4f 57 20 20 20 36 39 | ).: YEL|LOW   69|
|00000290| 20 30 20 32 3e 72 20 2c | 24 20 41 38 36 32 20 3b | 0 2>r ,|$ A862 ;|
|000002a0| 20 20 28 20 79 65 6c 6c | 6f 77 20 5f 46 6f 72 65 |  ( yell|ow _Fore|
|000002b0| 43 6f 6c 6f 72 20 29 0d | 0d 3a 20 3f 43 4f 4c 4f |Color ).|.: ?COLO|
|000002c0| 52 20 28 20 2d 2d 20 66 | 20 29 20 28 20 74 72 75 |R ( -- f| ) ( tru|
|000002d0| 65 20 69 66 20 63 6f 6c | 6f 72 20 71 64 20 69 73 |e if col|or qd is|
|000002e0| 20 61 76 61 69 6c 61 62 | 6c 65 20 29 0d 20 20 20 | availab|le ).   |
|000002f0| 20 2c 73 20 71 64 20 20 | 20 3f 67 65 73 74 61 6c | ,s qd  | ?gestal|
|00000300| 74 20 49 46 20 20 64 72 | 6f 70 20 32 35 36 20 3e |t IF  dr|op 256 >|
|00000310| 20 20 45 4c 53 45 20 20 | 30 20 54 48 45 4e 20 3b |  ELSE  |0 THEN ;|
|00000320| 0d 0d 3a 20 4d 59 49 44 | 20 28 20 2d 2d 20 69 64 |..: MYID| ( -- id|
|00000330| 20 29 20 3f 63 6f 6c 6f | 72 20 49 46 20 31 35 30 | ) ?colo|r IF 150|
|00000340| 20 45 4c 53 45 20 31 33 | 30 20 54 48 45 4e 20 3b | ELSE 13|0 THEN ;|
|00000350| 0d 0d 3a 20 32 2c 20 28 | 20 64 20 2d 2d 20 29 20 |..: 2, (| d -- ) |
|00000360| 2c 24 20 32 34 44 45 20 | 3b 20 6d 61 63 72 6f 20 |,$ 24DE |; macro |
|00000370| 20 28 20 6d 6f 76 65 2e | 6c 20 5b 70 73 5d 2b 2c | ( move.|l [ps]+,|
|00000380| 5b 64 70 5d 2b 20 29 0d | 3a 20 34 2a 20 28 20 6e |[dp]+ ).|: 4* ( n|
|00000390| 20 2d 2d 20 6e 2a 34 20 | 29 20 32 2a 20 32 2a 20 | -- n*4 |) 2* 2* |
|000003a0| 3b 20 6d 61 63 72 6f 0d | 3a 20 38 2a 20 28 20 6e |; macro.|: 8* ( n|
|000003b0| 20 2d 2d 20 6e 2a 38 20 | 29 20 34 2a 20 32 2a 20 | -- n*8 |) 4* 2* |
|000003c0| 3b 0d 3a 20 52 2b 20 28 | 20 6e 20 2d 2d 20 6e 2b |;.: R+ (| n -- n+|
|000003d0| 72 20 29 20 28 20 61 64 | 64 20 74 68 65 20 6c 6f |r ) ( ad|d the lo|
|000003e0| 6f 70 20 69 6e 64 65 78 | 20 74 6f 20 74 68 65 20 |op index| to the |
|000003f0| 6e 75 6d 62 65 72 20 6f | 6e 20 74 68 65 20 73 74 |number o|n the st|
|00000400| 61 63 6b 20 29 0d 20 20 | 20 20 2c 24 20 33 30 31 |ack ).  |  ,$ 301|
|00000410| 37 20 2c 24 20 44 31 35 | 36 20 3b 20 6d 61 63 72 |7 ,$ D15|6 ; macr|
|00000420| 6f 20 20 28 20 6d 6f 76 | 65 2e 77 20 5b 72 73 5d |o  ( mov|e.w [rs]|
|00000430| 2c 64 30 20 61 64 64 2e | 77 20 64 30 2c 5b 70 73 |,d0 add.|w d0,[ps|
|00000440| 5d 20 29 0d 3a 20 32 52 | 20 28 20 2d 2d 20 64 20 |] ).: 2R| ( -- d |
|00000450| 29 20 28 20 72 73 74 61 | 63 6b 3a 20 64 20 2d 2d |) ( rsta|ck: d --|
|00000460| 20 64 20 29 20 2c 24 20 | 32 44 31 37 20 3b 20 6d | d ) ,$ |2D17 ; m|
|00000470| 61 63 72 6f 20 20 28 20 | 6d 6f 76 65 2e 6c 20 5b |acro  ( |move.l [|
|00000480| 72 73 5d 2c 2d 5b 70 73 | 5d 20 29 0d 0d 28 20 74 |rs],-[ps|] )..( t|
|00000490| 69 6d 65 20 73 74 75 66 | 66 20 29 0d 76 61 72 69 |ime stuf|f ).vari|
|000004a0| 61 62 6c 65 20 54 4c 41 | 53 54 20 20 30 20 74 6c |able TLA|ST  0 tl|
|000004b0| 61 73 74 20 21 20 20 28 | 20 74 69 6d 65 72 20 29 |ast !  (| timer )|
|000004c0| 0d 31 30 20 63 6f 6e 73 | 74 61 6e 74 20 44 45 4c |.10 cons|tant DEL|
|000004d0| 41 59 0d 3a 20 54 49 43 | 4b 53 20 28 20 2d 2d 20 |AY.: TIC|KS ( -- |
|000004e0| 6e 20 29 20 33 36 34 20 | 30 20 6c 40 20 3b 20 20 |n ) 364 |0 l@ ;  |
|000004f0| 28 20 74 69 63 6b 73 20 | 73 69 6e 63 65 20 72 65 |( ticks |since re|
|00000500| 66 65 72 65 6e 63 65 20 | 74 69 6d 65 20 29 0d 3a |ference |time ).:|
|00000510| 20 54 49 4d 45 20 28 20 | 2d 2d 20 29 20 28 20 77 | TIME ( |-- ) ( w|
|00000520| 61 69 74 20 66 6f 72 20 | 22 64 65 6c 61 79 22 20 |ait for |"delay" |
|00000530| 6e 75 6d 62 65 72 20 6f | 66 20 74 69 63 6b 73 20 |number o|f ticks |
|00000540| 29 0d 20 20 20 20 74 69 | 63 6b 73 20 74 6c 61 73 |).    ti|cks tlas|
|00000550| 74 20 21 0d 20 20 20 20 | 42 45 47 49 4e 20 20 74 |t !.    |BEGIN  t|
|00000560| 69 63 6b 73 20 74 6c 61 | 73 74 20 40 20 2d 20 61 |icks tla|st @ - a|
|00000570| 62 73 20 64 65 6c 61 79 | 20 3e 20 20 55 4e 54 49 |bs delay| >  UNTI|
|00000580| 4c 20 3b 0d 0d 28 20 72 | 61 6e 64 6f 6d 20 6e 75 |L ;..( r|andom nu|
|00000590| 6d 62 65 72 73 20 29 0d | 5c 20 50 69 63 6b 20 61 |mbers ).|\ Pick a|
|000005a0| 20 72 61 6e 64 6f 6d 20 | 6e 75 6d 62 65 72 20 66 | random |number f|
|000005b0| 72 6f 6d 20 30 20 74 6f | 20 6e 0d 3a 20 53 45 45 |rom 0 to| n.: SEE|
|000005c0| 44 20 28 20 2d 2d 20 64 | 61 64 64 72 20 29 20 2c |D ( -- d|addr ) ,|
|000005d0| 24 20 32 64 31 35 20 31 | 32 36 20 30 20 64 6e 65 |$ 2d15 1|26 0 dne|
|000005e0| 67 61 74 65 20 64 2b 20 | 3b 0d 3a 20 52 41 4e 44 |gate d+ |;.: RAND|
|000005f0| 4f 4d 49 5a 45 20 35 32 | 34 20 30 20 64 6c 40 20 |OMIZE 52|4 0 dl@ |
|00000600| 20 73 65 65 64 20 64 6c | 21 20 3b 0d 3a 20 52 41 | seed dl|! ;.: RA|
|00000610| 4e 44 4f 4d 20 28 20 6e | 20 2d 2d 20 6e 27 20 29 |NDOM ( n| -- n' )|
|00000620| 0d 20 20 20 20 30 20 3e | 72 20 2c 24 20 41 38 36 |.    0 >|r ,$ A86|
|00000630| 31 20 20 72 3e 20 28 20 | 5f 52 61 6e 64 6f 6d 20 |1  r> ( |_Random |
|00000640| 29 0d 20 20 20 20 73 77 | 61 70 20 33 32 37 36 38 |).    sw|ap 32768|
|00000650| 20 2a 2f 20 61 62 73 20 | 3b 20 20 28 20 73 63 61 | */ abs |;  ( sca|
|00000660| 6c 65 20 74 6f 20 73 69 | 7a 65 20 66 72 6f 6d 20 |le to si|ze from |
|00000670| 73 74 61 63 6b 20 29 0d | 3a 20 30 54 4f 34 20 28 |stack ).|: 0TO4 (|
|00000680| 20 2d 2d 20 6e 20 29 20 | 35 20 72 61 6e 64 6f 6d | -- n ) |5 random|
|00000690| 20 3b 0d 0d 28 20 70 69 | 63 6b 20 35 20 6f 66 20 | ;..( pi|ck 5 of |
|000006a0| 65 61 63 68 20 29 0d 76 | 61 72 69 61 62 6c 65 20 |each ).v|ariable |
|000006b0| 4f 46 45 41 43 48 20 36 | 20 61 6c 6c 6f 74 20 20 |OFEACH 6| allot  |
|000006c0| 28 20 68 6f 77 20 6d 61 | 6e 79 20 63 61 72 64 73 |( how ma|ny cards|
|000006d0| 20 6f 66 20 65 61 63 68 | 20 74 79 70 65 20 29 0d | of each| type ).|
|000006e0| 3a 20 4f 46 54 48 49 53 | 20 28 20 6e 20 2d 2d 20 |: OFTHIS| ( n -- |
|000006f0| 61 64 64 72 20 29 20 6f | 66 65 61 63 68 20 2b 20 |addr ) o|feach + |
|00000700| 3b 0d 3a 20 40 54 48 49 | 53 20 28 20 6e 20 2d 2d |;.: @THI|S ( n --|
|00000710| 20 6e 27 20 29 20 6f 66 | 74 68 69 73 20 63 40 20 | n' ) of|this c@ |
|00000720| 3b 0d 3a 20 44 4e 45 57 | 20 28 20 2d 2d 20 29 20 |;.: DNEW| ( -- ) |
|00000730| 72 61 6e 64 6f 6d 69 7a | 65 20 20 35 20 30 20 44 |randomiz|e  5 0 D|
|00000740| 4f 20 35 20 6f 66 65 61 | 63 68 20 72 20 2b 20 63 |O 5 ofea|ch r + c|
|00000750| 21 20 4c 4f 4f 50 20 3b | 0d 3a 20 50 49 43 4b 20 |! LOOP ;|.: PICK |
|00000760| 28 20 2d 2d 20 6e 20 29 | 0d 20 20 20 20 30 74 6f |( -- n )|.    0to|
|00000770| 34 20 64 75 70 20 40 74 | 68 69 73 20 49 46 0d 20 |4 dup @t|his IF. |
|00000780| 20 20 20 20 20 64 75 70 | 20 40 74 68 69 73 20 31 |     dup| @this 1|
|00000790| 2d 20 6f 76 65 72 20 6f | 66 74 68 69 73 20 63 21 |- over o|fthis c!|
|000007a0| 0d 20 20 20 20 45 4c 53 | 45 20 64 72 6f 70 20 70 |.    ELS|E drop p|
|000007b0| 69 63 6b 20 54 48 45 4e | 20 3b 0d 0d 28 20 66 69 |ick THEN| ;..( fi|
|000007c0| 6c 6c 20 74 68 65 20 64 | 65 63 6b 20 77 69 74 68 |ll the d|eck with|
|000007d0| 20 35 20 6f 66 20 65 61 | 63 68 20 29 0d 76 61 72 | 5 of ea|ch ).var|
|000007e0| 69 61 62 6c 65 20 43 41 | 52 44 20 20 28 20 74 68 |iable CA|RD  ( th|
|000007f0| 65 20 63 75 72 72 65 6e | 74 20 63 61 72 64 20 6e |e curren|t card n|
|00000800| 75 6d 62 65 72 20 29 0d | 76 61 72 69 61 62 6c 65 |umber ).|variable|
|00000810| 20 44 45 43 4b 20 32 34 | 20 61 6c 6c 6f 74 20 20 | DECK 24| allot  |
|00000820| 64 65 63 6b 20 32 36 20 | 30 20 66 69 6c 6c 0d 3a |deck 26 |0 fill.:|
|00000830| 20 53 48 55 46 46 4c 45 | 20 28 20 2d 2d 20 29 20 | SHUFFLE| ( -- ) |
|00000840| 64 6e 65 77 20 32 35 20 | 30 20 44 4f 20 70 69 63 |dnew 25 |0 DO pic|
|00000850| 6b 20 64 65 63 6b 20 72 | 20 2b 20 63 21 20 4c 4f |k deck r| + c! LO|
|00000860| 4f 50 20 3b 0d 0d 28 20 | 72 65 63 74 61 6e 67 6c |OP ;..( |rectangl|
|00000870| 65 73 20 29 0d 3a 20 52 | 45 43 54 20 28 20 63 6f |es ).: R|ECT ( co|
|00000880| 6d 70 69 6c 65 3a 20 2d | 2d 20 29 20 28 20 72 75 |mpile: -|- ) ( ru|
|00000890| 6e 3a 20 2d 2d 20 61 64 | 64 72 20 29 20 76 61 72 |n: -- ad|dr ) var|
|000008a0| 69 61 62 6c 65 20 36 20 | 61 6c 6c 6f 74 20 3b 0d |iable 6 |allot ;.|
|000008b0| 3a 20 21 52 45 43 54 20 | 28 20 74 20 6c 20 62 20 |: !RECT |( t l b |
|000008c0| 72 20 72 65 63 74 20 2d | 2d 20 29 20 3e 72 20 20 |r rect -|- ) >r  |
|000008d0| 73 77 61 70 20 72 20 34 | 20 2b 20 32 21 20 20 73 |swap r 4| + 2!  s|
|000008e0| 77 61 70 20 72 3e 20 32 | 21 20 3b 0d 3a 20 52 45 |wap r> 2|! ;.: RE|
|000008f0| 52 41 53 45 20 28 20 72 | 65 63 74 20 2d 2d 20 29 |RASE ( r|ect -- )|
|00000900| 20 61 3e 72 20 2c 24 20 | 41 38 41 33 20 3b 20 20 | a>r ,$ |A8A3 ;  |
|00000910| 28 20 5f 45 72 61 73 65 | 52 65 63 74 20 29 0d 3a |( _Erase|Rect ).:|
|00000920| 20 52 52 46 52 41 4d 45 | 20 28 20 63 6f 72 6e 65 | RRFRAME| ( corne|
|00000930| 72 68 20 63 6f 72 6e 65 | 72 76 20 72 65 63 74 20 |rh corne|rv rect |
|00000940| 2d 2d 20 29 0d 20 20 20 | 20 61 3e 72 20 32 3e 72 |-- ).   | a>r 2>r|
|00000950| 20 2c 24 20 41 38 42 30 | 20 3b 20 20 28 20 5f 46 | ,$ A8B0| ;  ( _F|
|00000960| 72 61 6d 65 52 6f 75 6e | 64 52 65 63 74 20 29 0d |rameRoun|dRect ).|
|00000970| 3a 20 52 52 45 52 41 53 | 45 20 28 20 63 6f 72 6e |: RRERAS|E ( corn|
|00000980| 65 72 68 20 63 6f 72 6e | 65 72 76 20 72 65 63 74 |erh corn|erv rect|
|00000990| 20 2d 2d 20 29 0d 20 20 | 20 20 61 3e 72 20 32 3e | -- ).  |  a>r 2>|
|000009a0| 72 20 2c 24 20 41 38 42 | 32 20 3b 20 20 28 20 5f |r ,$ A8B|2 ;  ( _|
|000009b0| 45 72 61 73 65 52 6f 75 | 6e 64 52 65 63 74 20 29 |EraseRou|ndRect )|
|000009c0| 0d 3a 20 52 4c 47 52 41 | 59 20 28 20 72 65 63 74 |.: RLGRA|Y ( rect|
|000009d0| 20 2d 2d 20 29 20 6d 61 | 67 65 6e 74 61 20 61 3e | -- ) ma|genta a>|
|000009e0| 72 20 28 20 70 61 69 6e | 74 20 61 20 72 65 63 74 |r ( pain|t a rect|
|000009f0| 20 67 72 61 79 20 29 0d | 20 20 20 20 20 2c 24 20 | gray ).|     ,$ |
|00000a00| 32 30 35 35 20 20 28 20 | 6d 6f 76 65 61 2e 6c 20 |2055  ( |movea.l |
|00000a10| 5b 61 35 5d 2c 61 30 20 | 29 0d 20 20 20 20 20 2c |[a5],a0 |).     ,|
|00000a20| 24 20 34 38 36 38 20 2c | 24 20 46 46 45 30 20 20 |$ 4868 ,|$ FFE0  |
|00000a30| 28 20 70 65 61 20 2d 33 | 32 5b 61 30 5d 20 29 0d |( pea -3|2[a0] ).|
|00000a40| 20 20 20 20 20 2c 24 20 | 41 38 41 35 20 3b 20 20 |     ,$ |A8A5 ;  |
|00000a50| 28 20 5f 50 61 69 6e 74 | 52 65 63 74 20 29 0d 3a |( _Paint|Rect ).:|
|00000a60| 20 3f 49 4e 20 28 20 68 | 20 76 20 72 65 63 74 20 | ?IN ( h| v rect |
|00000a70| 2d 2d 20 66 6c 61 67 20 | 29 20 28 20 74 72 75 65 |-- flag |) ( true|
|00000a80| 20 69 66 20 68 2c 76 20 | 69 73 20 69 6e 20 72 65 | if h,v |is in re|
|00000a90| 63 74 20 61 74 20 61 64 | 64 72 20 29 0d 20 20 20 |ct at ad|dr ).   |
|00000aa0| 20 30 20 3e 72 20 20 72 | 6f 74 20 72 6f 74 20 32 | 0 >r  r|ot rot 2|
|00000ab0| 3e 72 20 20 61 3e 72 20 | 20 2c 24 20 41 38 41 44 |>r  a>r | ,$ A8AD|
|00000ac0| 20 72 3e 20 3b 20 20 28 | 20 5f 50 74 49 6e 52 65 | r> ;  (| _PtInRe|
|00000ad0| 63 74 20 29 0d 0d 28 20 | 66 6f 6e 74 73 20 29 0d |ct )..( |fonts ).|
|00000ae0| 3a 20 21 46 4f 4e 54 20 | 28 20 6e 20 2d 2d 20 29 |: !FONT |( n -- )|
|00000af0| 20 3e 72 20 2c 24 20 41 | 38 38 37 20 3b 20 6d 61 | >r ,$ A|887 ; ma|
|00000b00| 63 72 6f 20 20 28 20 5f | 54 65 78 74 46 6f 6e 74 |cro  ( _|TextFont|
|00000b10| 20 29 20 28 20 73 65 74 | 20 66 6f 6e 74 20 29 0d | ) ( set| font ).|
|00000b20| 3a 20 21 46 53 49 5a 45 | 20 28 20 6e 20 2d 2d 20 |: !FSIZE| ( n -- |
|00000b30| 29 20 3e 72 20 2c 24 20 | 41 38 38 41 20 3b 20 6d |) >r ,$ |A88A ; m|
|00000b40| 61 63 72 6f 20 20 28 20 | 5f 54 65 78 74 53 69 7a |acro  ( |_TextSiz|
|00000b50| 65 20 29 20 28 20 73 65 | 74 20 73 69 7a 65 20 29 |e ) ( se|t size )|
|00000b60| 0d 3a 20 21 46 46 41 43 | 45 20 28 20 6e 20 2d 2d |.: !FFAC|E ( n --|
|00000b70| 20 29 20 3e 72 20 2c 24 | 20 41 38 38 38 20 3b 20 | ) >r ,$| A888 ; |
|00000b80| 6d 61 63 72 6f 20 20 28 | 20 5f 54 65 78 74 46 61 |macro  (| _TextFa|
|00000b90| 63 65 20 29 20 28 20 73 | 65 74 20 66 61 63 65 20 |ce ) ( s|et face |
|00000ba0| 29 0d 3a 20 42 46 4f 4e | 54 20 28 20 2d 2d 20 29 |).: BFON|T ( -- )|
|00000bb0| 20 33 20 21 66 6f 6e 74 | 20 20 39 20 21 66 73 69 | 3 !font|  9 !fsi|
|00000bc0| 7a 65 20 20 31 20 21 66 | 66 61 63 65 20 3b 20 20 |ze  1 !f|face ;  |
|00000bd0| 28 20 73 65 74 20 61 20 | 6c 69 74 74 6c 65 20 62 |( set a |little b|
|00000be0| 6f 6c 64 20 66 6f 6e 74 | 20 29 0d 3a 20 4c 46 4f |old font| ).: LFO|
|00000bf0| 4e 54 20 28 20 2d 2d 20 | 29 20 33 20 21 66 6f 6e |NT ( -- |) 3 !fon|
|00000c00| 74 20 20 39 20 21 66 73 | 69 7a 65 20 20 30 20 21 |t  9 !fs|ize  0 !|
|00000c10| 66 66 61 63 65 20 3b 0d | 3a 20 43 46 4f 4e 54 20 |fface ;.|: CFONT |
|00000c20| 28 20 2d 2d 20 29 20 33 | 20 21 66 6f 6e 74 20 20 |( -- ) 3| !font  |
|00000c30| 39 20 21 66 73 69 7a 65 | 20 20 33 32 20 21 66 66 |9 !fsize|  32 !ff|
|00000c40| 61 63 65 20 3b 0d 0d 28 | 20 70 69 63 74 75 72 65 |ace ;..(| picture|
|00000c50| 73 20 29 0d 3a 20 47 45 | 54 50 49 43 54 20 28 20 |s ).: GE|TPICT ( |
|00000c60| 69 64 20 2d 2d 20 64 68 | 61 6e 64 6c 65 20 29 20 |id -- dh|andle ) |
|00000c70| 30 20 30 20 32 3e 72 20 | 20 3e 72 20 20 2c 24 20 |0 0 2>r | >r  ,$ |
|00000c80| 41 39 42 43 20 20 32 72 | 3e 20 3b 20 20 28 20 5f |A9BC  2r|> ;  ( _|
|00000c90| 47 65 74 50 69 63 74 20 | 29 0d 3a 20 50 44 52 41 |GetPict |).: PDRA|
|00000ca0| 57 20 28 20 72 65 63 74 | 20 64 68 61 6e 64 6c 65 |W ( rect| dhandle|
|00000cb0| 20 2d 2d 20 29 20 28 20 | 64 72 61 77 20 61 20 70 | -- ) ( |draw a p|
|00000cc0| 69 63 74 75 72 65 20 69 | 6e 20 61 20 72 65 63 74 |icture i|n a rect|
|00000cd0| 20 29 0d 20 20 20 20 32 | 3e 72 20 61 3e 72 20 2c | ).    2|>r a>r ,|
|00000ce0| 24 20 41 38 46 36 20 3b | 20 20 28 20 5f 44 72 61 |$ A8F6 ;|  ( _Dra|
|00000cf0| 77 50 69 63 74 75 72 65 | 20 29 0d 0d 28 20 74 68 |wPicture| )..( th|
|00000d00| 65 20 72 65 63 74 73 3a | 20 20 54 20 20 20 4c 20 |e rects:|  T   L |
|00000d10| 20 20 42 20 20 20 52 20 | 29 0d 72 65 63 74 20 43 |  B   R |).rect C|
|00000d20| 52 45 43 54 20 20 20 20 | 20 33 20 20 20 34 20 31 |RECT    | 3   4 1|
|00000d30| 35 37 20 31 31 33 20 20 | 63 72 65 63 74 20 21 72 |57 113  |crect !r|
|00000d40| 65 63 74 20 20 28 20 63 | 61 72 64 20 72 65 63 74 |ect  ( c|ard rect|
|00000d50| 20 29 0d 72 65 63 74 20 | 43 54 52 45 43 54 20 20 | ).rect |CTRECT  |
|00000d60| 20 20 34 20 31 31 37 20 | 31 35 37 20 32 30 39 20 |  4 117 |157 209 |
|00000d70| 63 74 72 65 63 74 20 21 | 72 65 63 74 20 20 28 20 |ctrect !|rect  ( |
|00000d80| 63 6f 6e 74 72 6f 6c 20 | 72 65 63 74 20 29 0d 72 |control |rect ).r|
|00000d90| 65 63 74 20 4c 43 52 45 | 43 54 20 20 31 36 30 20 |ect LCRE|CT  160 |
|00000da0| 20 20 34 20 32 30 39 20 | 32 30 39 20 6c 63 72 65 |  4 209 |209 lcre|
|00000db0| 63 74 20 21 72 65 63 74 | 20 20 28 20 6c 69 74 74 |ct !rect|  ( litt|
|00000dc0| 6c 65 20 63 61 72 64 20 | 72 65 63 74 20 29 0d 72 |le card |rect ).r|
|00000dd0| 65 63 74 20 43 4f 52 45 | 43 54 20 20 20 31 32 20 |ect CORE|CT   12 |
|00000de0| 31 32 31 20 20 37 37 20 | 32 30 34 20 63 6f 72 65 |121  77 |204 core|
|00000df0| 63 74 20 21 72 65 63 74 | 20 20 28 20 73 74 61 74 |ct !rect|  ( stat|
|00000e00| 73 20 67 72 6f 75 70 20 | 29 0d 72 65 63 74 20 47 |s group |).rect G|
|00000e10| 55 52 45 43 54 20 20 31 | 30 34 20 31 32 31 20 31 |URECT  1|04 121 1|
|00000e20| 31 37 20 32 30 34 20 67 | 75 72 65 63 74 20 21 72 |17 204 g|urect !r|
|00000e30| 65 63 74 20 20 28 20 73 | 68 6f 77 20 73 74 61 74 |ect  ( s|how stat|
|00000e40| 73 20 62 75 74 74 6f 6e | 20 72 65 63 74 20 29 0d |s button| rect ).|
|00000e50| 72 65 63 74 20 54 47 52 | 45 43 54 20 20 31 33 36 |rect TGR|ECT  136|
|00000e60| 20 31 32 31 20 31 34 39 | 20 32 30 34 20 74 67 72 | 121 149| 204 tgr|
|00000e70| 65 63 74 20 21 72 65 63 | 74 20 20 28 20 61 62 6f |ect !rec|t  ( abo|
|00000e80| 75 74 20 62 75 74 74 6f | 6e 20 72 65 63 74 20 29 |ut butto|n rect )|
|00000e90| 0d 72 65 63 74 20 53 43 | 52 45 43 54 20 20 31 32 |.rect SC|RECT  12|
|00000ea0| 30 20 31 32 31 20 31 33 | 33 20 32 30 34 20 73 63 |0 121 13|3 204 sc|
|00000eb0| 72 65 63 74 20 21 72 65 | 63 74 20 20 28 20 73 68 |rect !re|ct  ( sh|
|00000ec0| 6f 77 20 63 61 72 64 73 | 20 62 75 74 74 6f 6e 20 |ow cards| button |
|00000ed0| 72 65 63 74 20 29 0d 72 | 65 63 74 20 53 48 52 45 |rect ).r|ect SHRE|
|00000ee0| 43 54 20 20 20 38 38 20 | 31 32 31 20 31 30 31 20 |CT   88 |121 101 |
|00000ef0| 32 30 34 20 73 68 72 65 | 63 74 20 21 72 65 63 74 |204 shre|ct !rect|
|00000f00| 20 20 28 20 72 65 73 65 | 74 20 62 75 74 74 6f 6e |  ( rese|t button|
|00000f10| 20 72 65 63 74 20 72 65 | 63 74 20 29 0d 0d 63 72 | rect re|ct )..cr|
|00000f20| 65 61 74 65 20 4c 43 52 | 45 43 54 53 20 28 20 74 |eate LCR|ECTS ( t|
|00000f30| 68 65 20 4c 69 74 74 6c | 65 20 43 61 72 64 20 62 |he Littl|e Card b|
|00000f40| 75 74 74 6f 6e 20 72 65 | 63 74 73 20 29 0d 20 20 |utton re|cts ).  |
|00000f50| 20 20 31 36 33 20 2c 20 | 20 20 38 20 2c 20 32 30 |  163 , |  8 , 20|
|00000f60| 36 20 2c 20 20 34 32 20 | 2c 20 20 28 20 6c 69 74 |6 ,  42 |,  ( lit|
|00000f70| 74 6c 65 20 63 69 72 63 | 6c 65 20 29 0d 20 20 20 |tle circ|le ).   |
|00000f80| 20 31 36 33 20 2c 20 20 | 34 38 20 2c 20 32 30 36 | 163 ,  |48 , 206|
|00000f90| 20 2c 20 20 38 32 20 2c | 20 20 28 20 6c 69 74 74 | ,  82 ,|  ( litt|
|00000fa0| 6c 65 20 63 72 6f 73 73 | 20 20 29 0d 20 20 20 20 |le cross|  ).    |
|00000fb0| 31 36 33 20 2c 20 20 38 | 38 20 2c 20 32 30 36 20 |163 ,  8|8 , 206 |
|00000fc0| 2c 20 31 32 32 20 2c 20 | 20 28 20 6c 69 74 74 6c |, 122 , | ( littl|
|00000fd0| 65 20 77 61 76 65 73 20 | 20 29 0d 20 20 20 20 31 |e waves | ).    1|
|00000fe0| 36 33 20 2c 20 31 32 38 | 20 2c 20 32 30 36 20 2c |63 , 128| , 206 ,|
|00000ff0| 20 31 36 32 20 2c 20 20 | 28 20 6c 69 74 74 6c 65 | 162 ,  |( little|
|00001000| 20 73 71 75 61 72 65 20 | 29 0d 20 20 20 20 31 36 | square |).    16|
|00001010| 33 20 2c 20 31 36 38 20 | 2c 20 32 30 36 20 2c 20 |3 , 168 |, 206 , |
|00001020| 32 30 32 20 2c 20 20 28 | 20 6c 69 74 74 6c 65 20 |202 ,  (| little |
|00001030| 73 74 61 72 20 20 20 29 | 0d 3a 20 4c 43 42 52 45 |star   )|.: LCBRE|
|00001040| 43 54 20 28 20 6e 20 2d | 2d 20 61 64 64 72 20 29 |CT ( n -|- addr )|
|00001050| 20 38 2a 20 6c 63 72 65 | 63 74 73 20 2b 20 3b 20 | 8* lcre|cts + ; |
|00001060| 20 28 20 67 65 74 20 61 | 64 64 72 20 6f 66 20 62 | ( get a|ddr of b|
|00001070| 75 74 74 6f 6e 20 72 65 | 63 74 20 29 20 0d 0d 28 |utton re|ct ) ..(|
|00001080| 20 63 61 72 64 20 70 69 | 63 74 75 72 65 73 20 29 | card pi|ctures )|
|00001090| 0d 63 72 65 61 74 65 20 | 43 41 52 44 53 20 20 32 |.create |CARDS  2|
|000010a0| 34 20 61 6c 6c 6f 74 20 | 28 20 61 6e 20 61 72 72 |4 allot |( an arr|
|000010b0| 61 79 20 6f 66 20 70 69 | 63 74 75 72 65 20 68 61 |ay of pi|cture ha|
|000010c0| 6e 64 6c 65 73 20 29 0d | 3a 20 21 43 41 52 44 53 |ndles ).|: !CARDS|
|000010d0| 20 28 20 2d 2d 20 29 20 | 28 20 66 69 6c 6c 20 63 | ( -- ) |( fill c|
|000010e0| 61 72 64 73 20 61 72 72 | 61 79 20 29 0d 20 20 20 |ards arr|ay ).   |
|000010f0| 20 36 20 30 20 44 4f 0d | 20 20 20 20 20 20 6d 79 | 6 0 DO.|      my|
|00001100| 69 64 20 72 2b 20 67 65 | 74 70 69 63 74 20 20 28 |id r+ ge|tpict  (|
|00001110| 20 67 65 74 20 61 20 70 | 69 63 74 75 72 65 20 68 | get a p|icture h|
|00001120| 61 6e 64 6c 65 20 66 6f | 72 20 50 49 43 54 20 69 |andle fo|r PICT i|
|00001130| 64 2b 30 20 74 6f 20 69 | 64 2b 35 20 29 0d 20 20 |d+0 to i|d+5 ).  |
|00001140| 20 20 20 20 63 61 72 64 | 73 20 72 20 34 2a 20 2b |    card|s r 4* +|
|00001150| 20 32 21 20 20 28 20 73 | 74 61 73 68 20 74 68 65 | 2!  ( s|tash the|
|00001160| 20 70 69 63 74 75 72 65 | 20 68 61 6e 64 6c 65 73 | picture| handles|
|00001170| 20 69 6e 20 27 63 61 72 | 64 73 27 20 29 0d 20 20 | in 'car|ds' ).  |
|00001180| 20 20 4c 4f 4f 50 20 3b | 0d 0d 32 76 61 72 69 61 |  LOOP ;|..2varia|
|00001190| 62 6c 65 20 4c 43 41 52 | 44 20 20 28 20 70 69 63 |ble LCAR|D  ( pic|
|000011a0| 74 20 68 61 6e 64 6c 65 | 20 6f 66 20 74 68 65 20 |t handle| of the |
|000011b0| 6c 61 73 74 20 63 61 72 | 64 20 29 0d 3a 20 21 4e |last car|d ).: !N|
|000011c0| 43 20 28 20 2d 2d 20 29 | 20 63 61 72 64 73 20 32 |C ( -- )| cards 2|
|000011d0| 30 20 2b 20 32 40 20 20 | 6c 63 61 72 64 20 32 21 |0 + 2@  |lcard 2!|
|000011e0| 20 3b 20 28 20 6c 61 73 | 74 20 63 61 72 64 20 3d | ; ( las|t card =|
|000011f0| 20 6e 6f 6e 63 61 72 64 | 20 29 0d 0d 28 20 64 72 | noncard| )..( dr|
|00001200| 61 77 20 74 68 65 20 70 | 61 72 74 73 20 6f 66 20 |aw the p|arts of |
|00001210| 74 68 65 20 77 69 6e 64 | 6f 77 20 29 0d 3a 20 43 |the wind|ow ).: C|
|00001220| 48 49 44 45 20 28 20 2d | 2d 20 29 20 28 20 64 72 |HIDE ( -|- ) ( dr|
|00001230| 61 77 20 74 68 65 20 68 | 69 64 64 65 6e 20 63 61 |aw the h|idden ca|
|00001240| 72 64 20 29 0d 20 20 20 | 20 63 72 65 63 74 20 63 |rd ).   | crect c|
|00001250| 61 72 64 73 20 32 30 20 | 2b 20 32 40 20 70 64 72 |ards 20 |+ 2@ pdr|
|00001260| 61 77 20 3b 0d 3a 20 2e | 43 41 52 44 20 28 20 6e |aw ;.: .|CARD ( n|
|00001270| 20 2d 2d 20 29 20 28 20 | 64 72 61 77 20 74 68 65 | -- ) ( |draw the|
|00001280| 20 22 6e 22 74 68 20 63 | 61 72 64 20 29 0d 20 20 | "n"th c|ard ).  |
|00001290| 20 20 63 72 65 63 74 20 | 73 77 61 70 20 34 2a 20 |  crect |swap 4* |
|000012a0| 63 61 72 64 73 20 2b 20 | 32 40 20 20 28 20 67 65 |cards + |2@  ( ge|
|000012b0| 74 20 74 68 65 20 70 69 | 63 74 20 68 61 6e 64 6c |t the pi|ct handl|
|000012c0| 65 20 29 0d 20 20 20 20 | 32 64 75 70 20 6c 63 61 |e ).    |2dup lca|
|000012d0| 72 64 20 32 21 20 20 28 | 20 73 74 6f 72 65 20 70 |rd 2!  (| store p|
|000012e0| 69 63 74 20 68 61 6e 64 | 6c 65 20 69 6e 74 6f 20 |ict hand|le into |
|000012f0| 6c 63 61 72 64 20 29 0d | 20 20 20 20 70 64 72 61 |lcard ).|    pdra|
|00001300| 77 20 20 74 69 6d 65 20 | 63 68 69 64 65 20 3b 0d |w  time |chide ;.|
|00001310| 3a 20 2e 42 55 54 54 20 | 28 20 6e 20 2d 2d 20 29 |: .BUTT |( n -- )|
|00001320| 20 28 20 64 72 61 77 20 | 74 68 65 20 22 6e 22 74 | ( draw |the "n"t|
|00001330| 68 20 62 75 74 74 6f 6e | 20 29 0d 20 20 20 20 64 |h button| ).    d|
|00001340| 75 70 20 30 3c 20 30 3d | 20 49 46 20 20 28 20 6e |up 0< 0=| IF  ( n|
|00001350| 65 67 61 74 69 76 65 20 | 69 73 20 6e 6f 20 63 61 |egative |is no ca|
|00001360| 72 64 20 29 0d 20 20 20 | 20 64 75 70 20 20 6c 63 |rd ).   | dup  lc|
|00001370| 62 72 65 63 74 20 73 77 | 61 70 20 28 20 74 68 65 |brect sw|ap ( the|
|00001380| 20 62 75 74 74 6f 6e 27 | 73 20 72 65 63 74 20 29 | button'|s rect )|
|00001390| 0d 20 20 20 20 36 20 2b | 20 20 28 20 74 68 65 20 |.    6 +|  ( the |
|000013a0| 62 75 74 74 6f 6e 20 70 | 69 63 74 75 72 65 73 20 |button p|ictures |
|000013b0| 73 74 61 72 74 20 61 74 | 20 23 37 20 29 0d 20 20 |start at| #7 ).  |
|000013c0| 20 20 6d 79 69 64 20 2b | 20 67 65 74 70 69 63 74 |  myid +| getpict|
|000013d0| 20 70 64 72 61 77 20 54 | 48 45 4e 20 3b 20 20 28 | pdraw T|HEN ;  (|
|000013e0| 20 67 65 74 20 61 6e 64 | 20 64 72 61 77 20 69 74 | get and| draw it|
|000013f0| 20 29 0d 3a 20 42 53 48 | 4f 57 20 28 20 2d 2d 20 | ).: BSH|OW ( -- |
|00001400| 29 20 35 20 30 20 44 4f | 20 20 72 20 2e 62 75 74 |) 5 0 DO|  r .but|
|00001410| 74 20 6c 6f 6f 70 20 3b | 20 20 28 20 64 72 61 77 |t loop ;|  ( draw|
|00001420| 20 74 68 65 20 62 75 74 | 74 6f 6e 73 20 29 0d 0d | the but|tons )..|
|00001430| 3a 20 48 56 3e 43 41 52 | 44 20 28 20 68 20 76 20 |: HV>CAR|D ( h v |
|00001440| 2d 2d 20 63 61 72 64 23 | 20 29 0d 20 20 20 20 2d |-- card#| ).    -|
|00001450| 31 20 72 6f 74 20 72 6f | 74 20 20 35 20 30 20 44 |1 rot ro|t  5 0 D|
|00001460| 4f 0d 20 20 20 20 20 20 | 32 64 75 70 20 20 72 20 |O.      |2dup  r |
|00001470| 6c 63 62 72 65 63 74 20 | 20 3f 69 6e 20 49 46 0d |lcbrect | ?in IF.|
|00001480| 20 20 20 20 20 20 20 20 | 72 6f 74 20 64 72 6f 70 |        |rot drop|
|00001490| 20 72 20 20 72 6f 74 20 | 72 6f 74 20 0d 20 20 20 | r  rot |rot .   |
|000014a0| 20 54 48 45 4e 20 4c 4f | 4f 50 20 32 64 72 6f 70 | THEN LO|OP 2drop|
|000014b0| 20 3b 0d 0d 76 61 72 69 | 61 62 6c 65 20 52 49 47 | ;..vari|able RIG|
|000014c0| 48 54 20 20 30 20 72 69 | 67 68 74 20 21 0d 76 61 |HT  0 ri|ght !.va|
|000014d0| 72 69 61 62 6c 65 20 54 | 52 49 45 53 20 20 30 20 |riable T|RIES  0 |
|000014e0| 74 72 69 65 73 20 21 0d | 3a 20 2e 52 49 47 48 54 |tries !.|: .RIGHT|
|000014f0| 20 20 72 69 67 68 74 20 | 40 20 2e 20 3b 0d 3a 20 |  right |@ . ;.: |
|00001500| 2e 54 52 49 45 53 20 20 | 74 72 69 65 73 20 40 20 |.TRIES  |tries @ |
|00001510| 2e 20 3b 0d 3a 20 2e 52 | 41 4e 4b 20 20 72 69 67 |. ;.: .R|ANK  rig|
|00001520| 68 74 20 40 20 31 30 30 | 20 74 72 69 65 73 20 40 |ht @ 100| tries @|
|00001530| 20 2a 2f 20 35 20 2a 20 | 20 28 20 70 65 72 63 65 | */ 5 * | ( perce|
|00001540| 6e 74 20 2a 20 35 20 29 | 0d 20 20 20 20 64 75 70 |nt * 5 )|.    dup|
|00001550| 20 30 3c 20 49 46 20 64 | 72 6f 70 20 30 20 54 48 | 0< IF d|rop 0 TH|
|00001560| 45 4e 20 20 2e 20 3b 20 | 20 28 20 63 6f 72 72 65 |EN  . ; | ( corre|
|00001570| 63 74 20 66 6f 72 20 2f | 30 2c 20 70 72 69 6e 74 |ct for /|0, print|
|00001580| 20 69 74 20 29 0d 0d 76 | 61 72 69 61 62 6c 65 20 | it )..v|ariable |
|00001590| 42 44 54 45 58 54 0d 3a | 20 2e 48 49 44 45 20 28 |BDTEXT.:| .HIDE (|
|000015a0| 20 2d 2d 20 29 20 62 6c | 61 63 6b 20 31 33 33 20 | -- ) bl|ack 133 |
|000015b0| 31 33 30 20 21 70 65 6e | 20 2e 22 20 48 69 64 65 |130 !pen| ." Hide|
|000015c0| 20 43 61 72 64 73 22 20 | 3b 0d 3a 20 2e 53 48 4f | Cards" |;.: .SHO|
|000015d0| 57 20 28 20 2d 2d 20 29 | 20 62 6c 61 63 6b 20 31 |W ( -- )| black 1|
|000015e0| 33 33 20 31 33 30 20 21 | 70 65 6e 20 2e 22 20 53 |33 130 !|pen ." S|
|000015f0| 68 6f 77 20 43 61 72 64 | 73 22 20 3b 0d 27 20 2e |how Card|s" ;.' .|
|00001600| 68 69 64 65 20 62 64 74 | 65 78 74 20 21 0d 0d 76 |hide bdt|ext !..v|
|00001610| 61 72 69 61 62 6c 65 20 | 42 44 53 54 41 54 53 0d |ariable |BDSTATS.|
|00001620| 3a 20 2e 53 48 49 44 45 | 20 28 20 2d 2d 20 29 20 |: .SHIDE| ( -- ) |
|00001630| 62 6c 61 63 6b 20 31 33 | 33 20 31 31 34 20 21 70 |black 13|3 114 !p|
|00001640| 65 6e 20 2e 22 20 53 68 | 6f 77 20 53 74 61 74 73 |en ." Sh|ow Stats|
|00001650| 22 20 3b 0d 3a 20 2e 53 | 53 48 4f 57 20 28 20 2d |" ;.: .S|SHOW ( -|
|00001660| 2d 20 29 20 62 6c 61 63 | 6b 20 31 33 33 20 31 31 |- ) blac|k 133 11|
|00001670| 34 20 21 70 65 6e 20 2e | 22 20 48 69 64 65 20 53 |4 !pen .|" Hide S|
|00001680| 74 61 74 73 22 20 3b 0d | 27 20 2e 73 73 68 6f 77 |tats" ;.|' .sshow|
|00001690| 20 62 64 73 74 61 74 73 | 20 21 0d 0d 3a 20 42 44 | bdstats| !..: BD|
|000016a0| 52 41 57 20 28 20 2d 2d | 20 29 20 28 20 64 72 61 |RAW ( --| ) ( dra|
|000016b0| 77 20 74 68 65 20 63 6f | 6e 74 72 6f 6c 20 62 75 |w the co|ntrol bu|
|000016c0| 74 74 6f 6e 73 20 29 0d | 20 20 20 20 62 66 6f 6e |ttons ).|    bfon|
|000016d0| 74 0d 20 20 20 20 31 30 | 20 31 30 20 74 67 72 65 |t.    10| 10 tgre|
|000016e0| 63 74 20 72 72 65 72 61 | 73 65 0d 20 20 20 20 62 |ct rrera|se.    b|
|000016f0| 6c 61 63 6b 20 31 33 33 | 20 31 34 36 20 21 70 65 |lack 133| 146 !pe|
|00001700| 6e 20 20 2e 22 20 4c 61 | 73 74 20 43 61 72 64 22 |n  ." La|st Card"|
|00001710| 0d 20 20 20 20 62 6c 75 | 65 20 31 30 20 31 30 20 |.    blu|e 10 10 |
|00001720| 74 67 72 65 63 74 20 72 | 72 66 72 61 6d 65 20 20 |tgrect r|rframe  |
|00001730| 28 20 64 72 61 77 20 61 | 20 62 75 74 74 6f 6e 20 |( draw a| button |
|00001740| 29 0d 20 20 20 20 31 30 | 20 31 30 20 67 75 72 65 |).    10| 10 gure|
|00001750| 63 74 20 72 72 65 72 61 | 73 65 0d 20 20 20 20 20 |ct rrera|se.     |
|00001760| 20 62 64 73 74 61 74 73 | 20 40 20 65 78 65 63 75 | bdstats| @ execu|
|00001770| 74 65 20 20 28 20 64 72 | 61 77 20 74 68 65 20 48 |te  ( dr|aw the H|
|00001780| 69 64 65 2f 53 74 61 74 | 73 20 62 75 74 74 6f 6e |ide/Stat|s button|
|00001790| 20 74 65 78 74 20 29 0d | 20 20 20 20 62 6c 75 65 | text ).|    blue|
|000017a0| 20 31 30 20 31 30 20 67 | 75 72 65 63 74 20 72 72 | 10 10 g|urect rr|
|000017b0| 66 72 61 6d 65 20 20 28 | 20 64 72 61 77 20 61 20 |frame  (| draw a |
|000017c0| 62 75 74 74 6f 6e 20 29 | 0d 20 20 20 20 31 30 20 |button )|.    10 |
|000017d0| 31 30 20 73 63 72 65 63 | 74 20 72 72 65 72 61 73 |10 screc|t rreras|
|000017e0| 65 0d 20 20 20 20 20 20 | 62 64 74 65 78 74 20 40 |e.      |bdtext @|
|000017f0| 20 65 78 65 63 75 74 65 | 20 20 28 20 64 72 61 77 | execute|  ( draw|
|00001800| 20 74 68 65 20 48 69 64 | 65 2f 53 68 6f 77 20 62 | the Hid|e/Show b|
|00001810| 75 74 74 6f 6e 20 74 65 | 78 74 20 29 0d 20 20 20 |utton te|xt ).   |
|00001820| 20 62 6c 75 65 20 31 30 | 20 31 30 20 73 63 72 65 | blue 10| 10 scre|
|00001830| 63 74 20 72 72 66 72 61 | 6d 65 20 20 28 20 64 72 |ct rrfra|me  ( dr|
|00001840| 61 77 20 61 20 62 75 74 | 74 6f 6e 20 29 0d 20 20 |aw a but|ton ).  |
|00001850| 20 20 31 30 20 31 30 20 | 73 68 72 65 63 74 20 72 |  10 10 |shrect r|
|00001860| 72 65 72 61 73 65 0d 20 | 20 20 20 62 6c 61 63 6b |rerase. |   black|
|00001870| 20 20 31 33 33 20 39 38 | 20 21 70 65 6e 20 20 2e |  133 98| !pen  .|
|00001880| 22 20 52 65 73 65 74 20 | 53 74 61 74 73 22 0d 20 |" Reset |Stats". |
|00001890| 20 20 20 62 6c 75 65 20 | 31 30 20 31 30 20 73 68 |   blue |10 10 sh|
|000018a0| 72 65 63 74 20 72 72 66 | 72 61 6d 65 20 3b 20 20 |rect rrf|rame ;  |
|000018b0| 28 20 64 72 61 77 20 61 | 20 62 75 74 74 6f 6e 20 |( draw a| button |
|000018c0| 29 0d 0d 76 61 72 69 61 | 62 6c 65 20 46 46 4c 41 |)..varia|ble FFLA|
|000018d0| 47 20 2d 31 20 66 66 6c | 61 67 20 21 0d 3a 20 46 |G -1 ffl|ag !.: F|
|000018e0| 44 52 41 57 20 28 20 2d | 2d 20 29 20 28 20 64 72 |DRAW ( -|- ) ( dr|
|000018f0| 61 77 20 74 68 65 20 69 | 6e 66 6f 72 6d 61 74 69 |aw the i|nformati|
|00001900| 6f 6e 20 66 69 65 6c 64 | 73 20 29 0d 20 20 20 20 |on field|s ).    |
|00001910| 66 66 6c 61 67 20 40 20 | 49 46 20 20 62 66 6f 6e |fflag @ |IF  bfon|
|00001920| 74 20 0d 20 20 20 20 20 | 20 31 30 20 31 30 20 63 |t .     | 10 10 c|
|00001930| 6f 72 65 63 74 20 72 72 | 65 72 61 73 65 0d 20 20 |orect rr|erase.  |
|00001940| 20 20 20 20 62 6c 75 65 | 20 31 30 20 31 30 20 63 |    blue| 10 10 c|
|00001950| 6f 72 65 63 74 20 72 72 | 66 72 61 6d 65 20 20 62 |orect rr|frame  b|
|00001960| 6c 61 63 6b 20 28 20 64 | 72 61 77 20 27 73 74 61 |lack ( d|raw 'sta|
|00001970| 74 73 27 20 66 69 65 6c | 64 20 29 0d 20 20 20 20 |ts' fiel|d ).    |
|00001980| 20 20 31 32 35 20 32 33 | 20 21 70 65 6e 20 20 2e |  125 23| !pen  .|
|00001990| 22 20 20 20 53 74 61 74 | 69 73 74 69 63 73 22 0d |"   Stat|istics".|
|000019a0| 20 20 20 20 20 20 31 32 | 35 20 33 35 20 21 70 65 |      12|5 35 !pe|
|000019b0| 6e 20 20 2e 22 20 52 69 | 67 68 74 3a 22 20 2e 72 |n  ." Ri|ght:" .r|
|000019c0| 69 67 68 74 0d 20 20 20 | 20 20 20 31 32 35 20 34 |ight.   |   125 4|
|000019d0| 37 20 21 70 65 6e 20 20 | 2e 22 20 47 69 76 65 6e |7 !pen  |." Given|
|000019e0| 3a 22 20 2e 74 72 69 65 | 73 0d 20 20 20 20 20 20 |:" .trie|s.      |
|000019f0| 31 32 35 20 35 39 20 21 | 70 65 6e 20 20 2e 22 20 |125 59 !|pen  ." |
|00001a00| 52 61 6e 6b 3a 22 20 2e | 72 61 6e 6b 20 2e 22 20 |Rank:" .|rank ." |
|00001a10| 25 22 0d 20 20 20 20 20 | 20 31 32 34 20 37 32 20 |%".     | 124 72 |
|00001a20| 21 70 65 6e 20 63 66 6f | 6e 74 20 2e 22 20 a9 20 |!pen cfo|nt ." . |
|00001a30| 27 38 38 2d 27 39 33 20 | 43 2e 48 65 69 6c 6d 61 |'88-'93 |C.Heilma|
|00001a40| 6e 22 0d 20 20 20 20 45 | 4c 53 45 0d 20 20 20 20 |n".    E|LSE.    |
|00001a50| 20 20 6d 61 67 65 6e 74 | 61 20 63 6f 72 65 63 74 |  magent|a corect|
|00001a60| 20 72 6c 67 72 61 79 20 | 20 28 20 66 69 6c 6c 20 | rlgray | ( fill |
|00001a70| 62 61 63 6b 67 72 6f 75 | 6e 64 20 72 65 63 74 20 |backgrou|nd rect |
|00001a80| 29 0d 20 20 20 20 54 48 | 45 4e 20 3b 0d 3a 20 44 |).    TH|EN ;.: D|
|00001a90| 4f 46 48 49 54 20 28 20 | 2d 2d 20 29 20 28 20 68 |OFHIT ( |-- ) ( h|
|00001aa0| 61 6e 64 6c 65 20 73 68 | 6f 77 20 73 74 61 74 73 |andle sh|ow stats|
|00001ab0| 20 62 75 74 74 6f 6e 20 | 29 0d 20 20 20 20 66 66 | button |).    ff|
|00001ac0| 6c 61 67 20 40 20 64 75 | 70 20 30 3d 20 66 66 6c |lag @ du|p 0= ffl|
|00001ad0| 61 67 20 21 0d 20 20 20 | 20 49 46 20 5b 20 27 20 |ag !.   | IF [ ' |
|00001ae0| 2e 73 68 69 64 65 20 6c | 69 74 65 72 61 6c 20 5d |.shide l|iteral ]|
|00001af0| 20 62 64 73 74 61 74 73 | 20 21 20 20 0d 20 20 20 | bdstats| !  .   |
|00001b00| 20 45 4c 53 45 20 5b 20 | 27 20 2e 73 73 68 6f 77 | ELSE [ |' .sshow|
|00001b10| 20 6c 69 74 65 72 61 6c | 20 5d 20 62 64 73 74 61 | literal| ] bdsta|
|00001b20| 74 73 20 21 20 54 48 45 | 4e 0d 20 20 20 20 62 64 |ts ! THE|N.    bd|
|00001b30| 72 61 77 20 20 66 64 72 | 61 77 20 3b 0d 0d 76 61 |raw  fdr|aw ;..va|
|00001b40| 72 69 61 62 6c 65 20 44 | 4f 43 44 52 41 57 20 20 |riable D|OCDRAW  |
|00001b50| 27 20 2e 63 61 72 64 20 | 64 6f 63 64 72 61 77 20 |' .card |docdraw |
|00001b60| 21 0d 3a 20 48 49 44 45 | 20 28 20 2d 2d 20 29 20 |!.: HIDE| ( -- ) |
|00001b70| 20 63 68 69 64 65 20 20 | 21 6e 63 0d 20 20 20 20 | chide  |!nc.    |
|00001b80| 5b 20 27 20 2e 73 68 6f | 77 20 6c 69 74 65 72 61 |[ ' .sho|w litera|
|00001b90| 6c 20 5d 20 62 64 74 65 | 78 74 20 21 0d 20 20 20 |l ] bdte|xt !.   |
|00001ba0| 20 5b 20 27 20 64 72 6f | 70 20 6c 69 74 65 72 61 | [ ' dro|p litera|
|00001bb0| 6c 20 5d 20 64 6f 63 64 | 72 61 77 20 21 20 20 62 |l ] docd|raw !  b|
|00001bc0| 64 72 61 77 20 3b 0d 3a | 20 53 48 4f 57 20 28 20 |draw ;.:| SHOW ( |
|00001bd0| 2d 2d 20 29 0d 20 20 20 | 20 5b 20 27 20 2e 68 69 |-- ).   | [ ' .hi|
|00001be0| 64 65 20 6c 69 74 65 72 | 61 6c 20 5d 20 62 64 74 |de liter|al ] bdt|
|00001bf0| 65 78 74 20 21 0d 20 20 | 20 20 5b 20 27 20 2e 63 |ext !.  |  [ ' .c|
|00001c00| 61 72 64 20 6c 69 74 65 | 72 61 6c 20 5d 20 64 6f |ard lite|ral ] do|
|00001c10| 63 64 72 61 77 20 21 20 | 20 62 64 72 61 77 20 3b |cdraw ! | bdraw ;|
|00001c20| 0d 3a 20 48 42 55 54 54 | 20 28 20 2d 2d 20 29 20 |.: HBUTT| ( -- ) |
|00001c30| 28 20 64 6f 20 68 69 64 | 65 20 62 75 74 74 6f 6e |( do hid|e button|
|00001c40| 20 29 0d 20 20 20 20 64 | 6f 63 64 72 61 77 20 40 | ).    d|ocdraw @|
|00001c50| 20 5b 20 27 20 2e 63 61 | 72 64 20 6c 69 74 65 72 | [ ' .ca|rd liter|
|00001c60| 61 6c 20 5d 20 3d 20 49 | 46 0d 20 20 20 20 20 20 |al ] = I|F.      |
|00001c70| 68 69 64 65 20 45 4c 53 | 45 20 73 68 6f 77 20 54 |hide ELS|E show T|
|00001c80| 48 45 4e 20 3b 0d 0d 3a | 20 43 42 55 54 54 20 28 |HEN ;..:| CBUTT (|
|00001c90| 20 6e 20 2d 2d 20 29 20 | 28 20 68 61 6e 64 6c 65 | n -- ) |( handle|
|00001ca0| 20 63 6c 69 63 6b 20 69 | 6e 20 62 75 74 74 6f 6e | click i|n button|
|00001cb0| 20 66 6f 72 20 63 61 72 | 64 20 6e 20 29 0d 20 20 | for car|d n ).  |
|00001cc0| 20 20 63 61 72 64 20 40 | 20 20 64 65 63 6b 20 2b |  card @|  deck +|
|00001cd0| 20 63 40 20 20 28 20 67 | 65 74 20 74 68 65 20 6e | c@  ( g|et the n|
|00001ce0| 65 78 74 20 63 61 72 64 | 20 66 72 6f 6d 20 74 68 |ext card| from th|
|00001cf0| 65 20 64 65 63 6b 20 29 | 0d 20 20 20 20 64 75 70 |e deck )|.    dup|
|00001d00| 20 72 6f 74 20 3d 20 49 | 46 20 20 28 20 69 66 20 | rot = I|F  ( if |
|00001d10| 69 74 20 69 73 20 61 20 | 63 6f 72 72 65 63 74 20 |it is a |correct |
|00001d20| 67 75 65 73 73 20 29 0d | 20 20 20 20 20 20 31 20 |guess ).|      1 |
|00001d30| 72 69 67 68 74 20 2b 21 | 20 54 48 45 4e 20 20 28 |right +!| THEN  (|
|00001d40| 20 69 6e 63 72 65 6d 65 | 6e 74 20 27 72 69 67 68 | increme|nt 'righ|
|00001d50| 74 27 20 29 0d 20 20 20 | 20 31 20 74 72 69 65 73 |t' ).   | 1 tries|
|00001d60| 20 2b 21 20 20 31 20 63 | 61 72 64 20 2b 21 20 20 | +!  1 c|ard +!  |
|00001d70| 28 20 69 6e 63 72 65 6d | 65 6e 74 20 27 74 72 69 |( increm|ent 'tri|
|00001d80| 65 73 27 20 61 6e 64 20 | 27 63 61 72 64 27 20 29 |es' and |'card' )|
|00001d90| 0d 20 20 20 20 72 69 67 | 68 74 20 40 20 31 30 30 |.    rig|ht @ 100|
|00001da0| 30 30 20 6d 6f 64 20 72 | 69 67 68 74 20 21 20 20 |00 mod r|ight !  |
|00001db0| 28 20 62 6f 75 6e 64 20 | 6f 6e 20 72 69 67 68 74 |( bound |on right|
|00001dc0| 20 29 0d 20 20 20 20 74 | 72 69 65 73 20 40 20 31 | ).    t|ries @ 1|
|00001dd0| 30 30 30 30 20 6d 6f 64 | 20 64 75 70 20 74 72 69 |0000 mod| dup tri|
|00001de0| 65 73 20 21 20 20 28 20 | 62 6f 75 6e 64 20 6f 6e |es !  ( |bound on|
|00001df0| 20 74 72 69 65 73 20 29 | 0d 20 20 20 20 30 3d 20 | tries )|.    0= |
|00001e00| 49 46 20 30 20 72 69 67 | 68 74 20 21 20 54 48 45 |IF 0 rig|ht ! THE|
|00001e10| 4e 0d 20 20 20 20 64 6f | 63 64 72 61 77 20 40 20 |N.    do|cdraw @ |
|00001e20| 65 78 65 63 75 74 65 20 | 20 28 20 64 69 73 70 6c |execute | ( displ|
|00001e30| 61 79 20 74 68 65 20 63 | 61 72 64 20 66 6f 72 20 |ay the c|ard for |
|00001e40| 61 20 27 74 69 6d 65 27 | 20 29 0d 20 20 20 20 66 |a 'time'| ).    f|
|00001e50| 64 72 61 77 20 20 28 20 | 64 72 61 77 20 6e 65 77 |draw  ( |draw new|
|00001e60| 20 73 74 61 74 73 20 29 | 0d 20 20 20 20 63 61 72 | stats )|.    car|
|00001e70| 64 20 40 20 32 35 20 3d | 20 49 46 20 20 28 20 69 |d @ 25 =| IF  ( i|
|00001e80| 66 20 69 74 20 69 73 20 | 74 68 65 20 65 6e 64 20 |f it is |the end |
|00001e90| 6f 66 20 74 68 65 20 64 | 65 63 6b 20 29 0d 20 20 |of the d|eck ).  |
|00001ea0| 20 20 20 20 73 68 75 66 | 66 6c 65 20 20 30 20 63 |    shuf|fle  0 c|
|00001eb0| 61 72 64 20 21 20 54 48 | 45 4e 20 3b 20 20 28 20 |ard ! TH|EN ;  ( |
|00001ec0| 73 68 75 66 66 6c 65 20 | 74 68 65 20 64 65 63 6b |shuffle |the deck|
|00001ed0| 20 29 0d 0d 3a 20 44 4f | 41 42 4f 55 54 20 28 20 | )..: DO|ABOUT ( |
|00001ee0| 2d 2d 20 29 20 28 20 64 | 69 73 70 6c 61 79 20 61 |-- ) ( d|isplay a|
|00001ef0| 6e 20 61 6c 65 72 74 20 | 62 6f 78 20 29 0d 20 20 |n alert |box ).  |
|00001f00| 20 20 30 20 3e 72 20 20 | 6d 79 69 64 20 3e 72 20 |  0 >r  |myid >r |
|00001f10| 20 30 20 30 20 32 3e 72 | 20 20 2c 24 20 41 39 38 | 0 0 2>r|  ,$ A98|
|00001f20| 35 20 20 72 3e 20 64 72 | 6f 70 20 3b 20 20 28 20 |5  r> dr|op ;  ( |
|00001f30| 5f 41 6c 65 72 74 20 29 | 0d 0d 3a 20 4c 43 53 48 |_Alert )|..: LCSH|
|00001f40| 4f 57 20 28 20 2d 2d 20 | 29 20 28 20 73 68 6f 77 |OW ( -- |) ( show|
|00001f50| 20 74 68 65 20 6c 61 73 | 74 20 63 61 72 64 20 66 | the las|t card f|
|00001f60| 6f 72 20 32 58 20 74 69 | 6d 65 20 29 0d 20 20 20 |or 2X ti|me ).   |
|00001f70| 20 63 72 65 63 74 20 20 | 6c 63 61 72 64 20 32 40 | crect  |lcard 2@|
|00001f80| 20 70 64 72 61 77 0d 20 | 20 20 20 42 45 47 49 4e | pdraw. |   BEGIN|
|00001f90| 20 3f 62 75 74 74 6f 6e | 20 30 3d 20 55 4e 54 49 | ?button| 0= UNTI|
|00001fa0| 4c 20 63 68 69 64 65 20 | 3b 0d 0d 3a 20 42 55 54 |L chide |;..: BUT|
|00001fb0| 54 4f 4e 20 28 20 2d 2d | 20 29 20 28 20 62 75 74 |TON ( --| ) ( but|
|00001fc0| 74 6f 6e 20 68 61 6e 64 | 6c 65 72 20 29 0d 20 20 |ton hand|ler ).  |
|00001fd0| 20 20 40 6d 6f 75 73 65 | 20 32 3e 72 20 20 28 20 |  @mouse| 2>r  ( |
|00001fe0| 73 74 61 73 68 20 6d 6f | 75 73 65 20 63 6f 6f 72 |stash mo|use coor|
|00001ff0| 64 73 20 6f 6e 20 72 73 | 74 61 63 6b 20 29 0d 20 |ds on rs|tack ). |
|00002000| 20 20 20 32 72 20 68 76 | 3e 63 61 72 64 20 64 75 |   2r hv|>card du|
|00002010| 70 20 30 3c 20 30 3d 20 | 49 46 20 20 28 20 69 66 |p 0< 0= |IF  ( if|
|00002020| 20 69 74 20 69 73 20 69 | 6e 20 61 20 63 61 72 64 | it is i|n a card|
|00002030| 20 62 75 74 74 6f 6e 20 | 29 0d 20 20 20 20 20 20 | button |).      |
|00002040| 63 62 75 74 74 20 20 28 | 20 68 61 6e 64 6c 65 20 |cbutt  (| handle |
|00002050| 74 68 65 20 63 61 72 64 | 20 62 75 74 74 6f 6e 20 |the card| button |
|00002060| 29 0d 20 20 20 20 45 4c | 53 45 20 64 72 6f 70 20 |).    EL|SE drop |
|00002070| 20 28 20 64 72 6f 70 20 | 74 68 65 20 2d 31 20 66 | ( drop |the -1 f|
|00002080| 6c 61 67 20 29 0d 20 20 | 20 20 20 20 32 72 20 73 |lag ).  |    2r s|
|00002090| 68 72 65 63 74 20 3f 69 | 6e 20 49 46 20 20 28 20 |hrect ?i|n IF  ( |
|000020a0| 69 6e 20 72 65 73 65 74 | 20 62 75 74 74 6f 6e 20 |in reset| button |
|000020b0| 29 0d 20 20 20 20 20 20 | 20 20 30 20 63 61 72 64 |).      |  0 card|
|000020c0| 20 21 20 20 30 20 72 69 | 67 68 74 20 21 20 20 30 | !  0 ri|ght !  0|
|000020d0| 20 74 72 69 65 73 20 21 | 20 20 28 20 72 65 73 65 | tries !|  ( rese|
|000020e0| 74 20 76 61 72 69 61 62 | 6c 65 73 20 29 0d 20 20 |t variab|les ).  |
|000020f0| 20 20 20 20 20 20 73 68 | 75 66 66 6c 65 20 20 66 |      sh|uffle  f|
|00002100| 64 72 61 77 20 20 62 64 | 72 61 77 20 20 21 6e 63 |draw  bd|raw  !nc|
|00002110| 20 20 28 20 73 68 75 66 | 66 6c 65 2c 20 64 72 61 |  ( shuf|fle, dra|
|00002120| 77 20 73 74 61 74 73 20 | 26 20 62 75 74 74 6f 6e |w stats |& button|
|00002130| 73 20 29 0d 20 20 20 20 | 20 20 45 4c 53 45 20 20 |s ).    |  ELSE  |
|00002140| 28 20 6e 6f 74 20 69 6e | 20 72 65 73 65 74 20 29 |( not in| reset )|
|00002150| 0d 20 20 20 20 20 20 20 | 20 32 72 20 73 63 72 65 |.       | 2r scre|
|00002160| 63 74 20 3f 69 6e 20 49 | 46 20 20 28 20 69 6e 20 |ct ?in I|F  ( in |
|00002170| 73 68 6f 77 2f 68 69 64 | 65 20 62 75 74 74 6f 6e |show/hid|e button|
|00002180| 3f 20 29 0d 20 20 20 20 | 20 20 20 20 20 20 68 62 |? ).    |      hb|
|00002190| 75 74 74 20 20 28 20 68 | 61 6e 64 6c 65 20 73 68 |utt  ( h|andle sh|
|000021a0| 6f 77 2f 68 69 64 65 20 | 62 75 74 74 6f 6e 20 29 |ow/hide |button )|
|000021b0| 0d 20 20 20 20 20 20 20 | 20 45 4c 53 45 20 20 28 |.       | ELSE  (|
|000021c0| 20 6e 6f 74 20 69 6e 20 | 73 68 6f 77 2f 68 69 64 | not in |show/hid|
|000021d0| 65 20 62 75 74 74 6f 6e | 20 29 0d 20 20 20 20 20 |e button| ).     |
|000021e0| 20 20 20 20 20 32 72 20 | 74 67 72 65 63 74 20 3f |     2r |tgrect ?|
|000021f0| 69 6e 20 49 46 20 20 28 | 20 69 6e 20 6c 61 73 74 |in IF  (| in last|
|00002200| 20 63 61 72 64 20 62 75 | 74 74 6f 6e 20 29 0d 20 | card bu|tton ). |
|00002210| 20 20 20 20 20 20 20 20 | 20 20 20 6c 63 73 68 6f |        |   lcsho|
|00002220| 77 0d 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 |w.      |    ELSE|
|00002230| 20 20 28 20 6e 6f 74 20 | 69 6e 20 61 62 6f 75 74 |  ( not |in about|
|00002240| 20 62 75 74 74 6f 6e 20 | 29 0d 20 20 20 20 20 20 | button |).      |
|00002250| 20 20 20 20 20 20 32 72 | 20 67 75 72 65 63 74 20 |      2r| gurect |
|00002260| 3f 69 6e 20 49 46 20 20 | 28 20 68 61 6e 64 6c 65 |?in IF  |( handle|
|00002270| 20 73 68 6f 77 20 73 74 | 61 74 73 20 62 75 74 74 | show st|ats butt|
|00002280| 6f 6e 20 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |on ).   |        |
|00002290| 20 20 20 64 6f 66 68 69 | 74 0d 20 20 20 20 20 20 |   dofhi|t.      |
|000022a0| 20 20 20 20 20 20 45 4c | 53 45 20 62 65 65 70 20 |      EL|SE beep |
|000022b0| 20 28 20 6e 6f 74 20 69 | 6e 20 61 20 62 75 74 74 | ( not i|n a butt|
|000022c0| 6f 6e 20 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |on ).   |        |
|000022d0| 20 54 48 45 4e 0d 20 20 | 20 20 20 20 20 20 20 20 | THEN.  |        |
|000022e0| 54 48 45 4e 0d 20 20 20 | 20 20 20 20 20 54 48 45 |THEN.   |     THE|
|000022f0| 4e 0d 20 20 20 20 20 20 | 54 48 45 4e 0d 20 20 20 |N.      |THEN.   |
|00002300| 20 54 48 45 4e 20 20 32 | 72 3e 20 32 64 72 6f 70 | THEN  2|r> 2drop|
|00002310| 20 3b 20 20 28 20 64 72 | 6f 70 20 74 68 65 20 63 | ;  ( dr|op the c|
|00002320| 6f 6f 72 64 73 20 66 72 | 6f 6d 20 74 68 65 20 72 |oords fr|om the r|
|00002330| 73 74 61 63 6b 20 29 0d | 0d 3a 20 57 44 52 41 57 |stack ).|.: WDRAW|
|00002340| 20 28 20 2d 2d 20 29 20 | 28 20 64 72 61 77 20 74 | ( -- ) |( draw t|
|00002350| 68 65 20 77 69 6e 64 6f | 77 20 29 0d 20 20 20 20 |he windo|w ).    |
|00002360| 6d 61 67 65 6e 74 61 20 | 34 20 2b 6d 64 20 72 6c |magenta |4 +md rl|
|00002370| 67 72 61 79 20 20 28 20 | 66 69 6c 6c 20 62 61 63 |gray  ( |fill bac|
|00002380| 6b 67 72 6f 75 6e 64 20 | 72 65 63 74 20 29 0d 20 |kground |rect ). |
|00002390| 20 20 20 63 79 61 6e 20 | 31 34 20 31 34 20 6c 63 |   cyan |14 14 lc|
|000023a0| 72 65 63 74 20 72 72 66 | 72 61 6d 65 20 20 28 20 |rect rrf|rame  ( |
|000023b0| 64 72 61 77 20 6c 69 74 | 74 6c 65 20 63 61 72 64 |draw lit|tle card|
|000023c0| 20 72 65 63 74 20 29 0d | 20 20 20 20 63 79 61 6e | rect ).|    cyan|
|000023d0| 20 31 34 20 31 34 20 63 | 74 72 65 63 74 20 72 72 | 14 14 c|trect rr|
|000023e0| 66 72 61 6d 65 20 20 28 | 20 64 72 61 77 20 63 6f |frame  (| draw co|
|000023f0| 6e 74 72 6f 6c 20 72 65 | 63 74 20 29 0d 20 20 20 |ntrol re|ct ).   |
|00002400| 20 66 64 72 61 77 20 20 | 62 64 72 61 77 20 20 63 | fdraw  |bdraw  c|
|00002410| 68 69 64 65 20 20 62 73 | 68 6f 77 20 2d 31 30 30 |hide  bs|how -100|
|00002420| 20 2d 31 30 30 20 21 70 | 65 6e 20 3b 0d 0d 3a 20 | -100 !p|en ;..: |
|00002430| 53 54 41 52 54 20 28 20 | 2d 2d 20 29 20 20 21 63 |START ( |-- )  !c|
|00002440| 61 72 64 73 20 0d 20 20 | 20 20 30 20 63 61 72 64 |ards .  |  0 card|
|00002450| 20 21 20 20 30 20 72 69 | 67 68 74 20 21 20 20 30 | !  0 ri|ght !  0|
|00002460| 20 74 72 69 65 73 20 21 | 20 20 73 68 75 66 66 6c | tries !|  shuffl|
|00002470| 65 20 20 21 6e 63 0d 20 | 20 20 20 42 45 47 49 4e |e  !nc. |   BEGIN|
|00002480| 20 6b 65 79 20 64 72 6f | 70 20 41 47 41 49 4e 20 | key dro|p AGAIN |
|00002490| 3b 0d 0d 32 31 34 20 32 | 31 32 20 38 20 2b 6d 64 |;..214 2|12 8 +md|
|000024a0| 20 32 21 20 20 28 20 73 | 65 74 20 77 69 6e 64 6f | 2!  ( s|et windo|
|000024b0| 77 20 73 69 7a 65 20 29 | 0d 27 20 62 75 74 74 6f |w size )|.' butto|
|000024c0| 6e 20 20 31 36 20 2b 6d | 64 20 21 20 28 20 62 75 |n  16 +m|d ! ( bu|
|000024d0| 74 74 6f 6e 20 68 61 6e | 64 6c 65 72 20 29 0d 27 |tton han|dler ).'|
|000024e0| 20 77 64 72 61 77 20 20 | 31 34 20 2b 6d 64 20 21 | wdraw  |14 +md !|
|000024f0| 20 20 28 20 75 70 64 61 | 74 65 20 68 61 6e 64 6c |  ( upda|te handl|
|00002500| 65 72 20 29 0d 27 20 73 | 74 61 72 74 20 20 32 36 |er ).' s|tart  26|
|00002510| 20 2b 6d 64 20 21 20 20 | 28 20 73 74 61 72 74 75 | +md !  |( startu|
|00002520| 70 20 68 61 6e 64 6c 65 | 72 20 29 0d 27 20 6e 75 |p handle|r ).' nu|
|00002530| 6c 6c 20 20 31 38 20 2b | 6d 64 20 40 20 32 2b 20 |ll  18 +|md @ 2+ |
|00002540| 40 20 38 20 2b 20 21 20 | 20 28 20 70 61 73 74 65 |@ 8 + ! | ( paste|
|00002550| 20 68 61 6e 64 6c 65 72 | 20 29 0d 32 32 20 2b 6d | handler| ).22 +m|
|00002560| 64 20 40 20 20 31 38 20 | 2b 6d 64 20 40 20 40 20 |d @  18 |+md @ @ |
|00002570| 21 20 20 28 20 71 75 69 | 74 20 68 61 6e 64 6c 65 |!  ( qui|t handle|
|00002580| 72 20 29 0d 27 20 64 6f | 61 62 6f 75 74 20 20 32 |r ).' do|about  2|
|00002590| 34 20 2b 6d 64 20 21 20 | 20 28 20 61 62 6f 75 74 |4 +md ! | ( about|
|000025a0| 20 68 61 6e 64 6c 65 72 | 20 29 0d 0d 73 61 76 65 | handler| )..save|
|000025b0| 20 62 79 65 0d 00 00 00 | 00 00 00 00 00 00 00 00 | bye....|........|
|000025c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 01 00 00 00 01 e4 | 00 00 00 e4 00 00 00 5a |........|.......Z|
|00002610| 00 00 0a ef 11 43 4d 42 | 61 72 43 68 6f 72 65 2e |.....CMB|arChore.|
|00002620| 63 2e 44 69 66 66 02 00 | 00 00 54 45 58 54 4d 50 |c.Diff..|..TEXTMP|
|00002630| 06 52 68 69 6e 65 72 b4 | 02 00 00 00 50 61 72 74 |.Rhiner.|....Part|
|00002640| 53 49 54 78 00 00 00 00 | 00 00 00 00 00 01 56 d2 |SITx....|......V.|
|00002650| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 a9 7f ec fb 00 00 | 00 00 00 00 02 3e 00 00 |........|.....>..|
|00002680| 00 00 00 00 00 00 00 00 | 00 00 00 00 16 00 00 00 |........|........|
|00002690| 0a ef 10 43 6f 6e 73 74 | 61 6e 74 73 2e 68 2e 44 |...Const|ants.h.D|
|000026a0| 69 66 66 6e 02 00 00 00 | 54 45 58 54 4d 50 53 20 |iffn....|TEXTMPS |
|000026b0| 01 00 01 6c 00 00 00 00 | 00 00 0b 05 00 00 00 00 |...l....|........|
|000026c0| 02 c2 00 00 06 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| a2 10 25 d9 a2 10 25 de | 00 00 00 00 00 00 00 00 |..%...%.|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 08 f1 |........|........|
|000026f0| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 00 40 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |...@...M|onaco...|
|00002710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 04 | 00 06 00 08 00 00 00 94 |........|........|
|00002750| 00 00 00 12 00 00 05 6a | 00 00 05 6a 00 00 00 00 |.......j|...j....|
|00002760| 00 01 00 50 00 00 ff ff | 00 00 00 00 ff ff ff ff |...P....|........|
|00002770| ff ff ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| ff ff ff ff ff ff 00 00 | 00 00 00 00 ff ff ff ff |........|........|
|00002790| 00 00 00 00 00 00 00 00 | ff ff ff ff ff ff 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 2c 00 04 01 6a |........|...,...j|
|000027b0| 02 23 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.#......|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 01 00 | 00 00 01 e4 00 00 00 e4 |........|........|
|000027f0| 00 00 00 5a 00 0a ed e8 | 0d 3a 00 00 00 1c 00 5a |...Z....|.:.....Z|
|00002800| 00 02 45 46 4e 54 00 00 | 00 1a 45 54 41 42 00 00 |..EFNT..|..ETAB..|
|00002810| 00 26 45 50 4f 53 00 00 | 00 32 03 eb ff ff 00 00 |.&EPOS..|.2......|
|00002820| 00 00 00 00 00 00 03 ec | ff ff 00 00 00 44 00 00 |........|.....D..|
|00002830| 00 00 03 ed ff ff 00 00 | 00 4c 00 00 00 00 00 00 |........|.L......|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+